
theme_baser <- function (){
    theme_minimal()  %+replace%
        theme(panel.grid.minor.x = element_blank(),
              panel.grid.minor.y = element_blank(),
              panel.grid.major.x = element_blank(),
              panel.grid.major.y = element_blank(),
              panel.border = element_rect(fill=NA,color="black", linewidth=0.5,
                                          linetype="solid"),
              legend.title = element_text(size = 15),
              plot.title = element_text(size = 15, face = "bold", hjust = 0, vjust = 1.5,
                                        margin=margin(b=5, r = 5, l = 5, t = 5)),
              legend.position = "bottom",
              plot.background = element_rect(fill = "white", color = "white",
                                             linewidth = NULL),
              axis.ticks = element_line(linewidth = 0.3),
              axis.ticks.length = unit(0.3,"cm"),
              legend.text=element_text(size = 13),
              strip.text = element_text(size = 15, hjust = 0.5, face = "bold",
                                        margin=margin(b=5, r = 5, l = 5, t = 5)),
              axis.text = element_text(colour="black", size = 13),
              axis.title = element_text(size = 13, hjust = 0.5))
}

theme_set(theme_baser())
